PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Mathematics/Addition/background_2722.txt

Text File | 1988-04-19 | 9.5 KB | 396 lines

-- background: 2722 from stack: in
-- bmap block id: 3719
-- flags: 0000
-- background id: 0
-- name: Addition Cover


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=144 right=160 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <10 Vertical
----- HyperTalk script -----
on mouseUp
  if bkgnd field "Name" is empty then
    answer "Please enter your name on the form." with "OK"
    exit mouseUp
  end if
  if field "Name" = "Records" then
    go to first card of bkgnd "Users"
    exit mouseUp
  end if
  put bkgnd field "Options"&" 1" into options
  put bkgnd field "Name" into name
  push this card
  go to first card of bkgnd "Vertical Problem <10"
  put "0" into field "Attempts"
  put "0" into field "Correct"
  put "0" into field "Percent"
  put options into field "Options"
  put name into field "Name"
  click at 400,125
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=159 right=176 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <10 Vertical
----- HyperTalk script -----
on mouseUp
  if bkgnd field "Name" is empty then
    answer "Please enter your name on the form." with "OK"
    exit mouseUp
  end if
  if field "Name" = "Records" then
    go to first card of bkgnd "Users"
    exit mouseUp
  end if
  put bkgnd field "Options"&" 2" into options
  put bkgnd field "Name" into name
  push this card
  go to first card of bkgnd "Horizontal Problem <10"
  put "0" into field "Attempts"
  put "0" into field "Correct"
  put "0" into field "Percent"
  put options into field "Options"
  put name into field "Name"
  click at 400,125
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=175 right=192 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <10 Vertical
----- HyperTalk script -----
on mouseUp
  if bkgnd field "Name" is empty then
    answer "Please enter your name on the form." with "OK"
    exit mouseUp
  end if
  if field "Name" = "Records" then
    go to first card of bkgnd "Users"
    exit mouseUp
  end if
  put bkgnd field "Options"&" 3" into options
  put bkgnd field "Name" into name
  push this card
  go to first card of bkgnd "2-Digit No Renaming"
  put "0" into field "Attempts"
  put "0" into field "Correct"
  put "0" into field "Percent"
  put options into field "Options"
  put name into field "Name"
  click at 400,125
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=190 right=207 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2-Digit Renaming 10's
----- HyperTalk script -----
on mouseUp
  if bkgnd field "Name" is empty then
    answer "Please enter your name on the form." with "OK"
    exit mouseUp
  end if
  if field "Name" = "Records" then
    go to first card of bkgnd "Users"
    exit mouseUp
  end if
  put bkgnd field "Options"&" 4" into options
  put bkgnd field "Name" into name
  push this card
  go to first card of bkgnd "2-Digit Renaming 10's"
  put "0" into field "Attempts"
  put "0" into field "Correct"
  put "0" into field "Percent"
  put options into field "Options"
  put name into field "Name"
  click at 400,125
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=206 right=223 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2-Digit Renamong 1's
----- HyperTalk script -----
on mouseUp
  if bkgnd field "Name" is empty then
    answer "Please enter your name on the form." with "OK"
    exit mouseUp
  end if
  if field "Name" = "Records" then
    go to first card of bkgnd "Users"
    exit mouseUp
  end if
  put bkgnd field "Options"&" 5" into options
  put bkgnd field "Name" into name
  push this card
  go to first card of bkgnd "2-Digit Renaming 1's"
  put "0" into field "Attempts"
  put "0" into field "Correct"
  put "0" into field "Percent"
  put options into field "Options"
  put name into field "Name"
  click at 400,125
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=221 right=238 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3-Digit No Renaming
----- HyperTalk script -----
on mouseUp
  if bkgnd field "Name" is empty then
    answer "Please enter your name on the form." with "OK"
    exit mouseUp
  end if
  if field "Name" = "Records" then
    go to first card of bkgnd "Users"
    exit mouseUp
  end if
  put bkgnd field "Options"&" 6" into options
  put bkgnd field "Name" into name
  push this card
  go to first card of bkgnd "3-Digit No Renaming"
  put "0" into field "Attempts"
  put "0" into field "Correct"
  put "0" into field "Percent"
  put options into field "Options"
  put name into field "Name"
  click at 400,125
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=237 right=254 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3-Digit Renaming
----- HyperTalk script -----
on mouseUp
  if bkgnd field "Name" is empty then
    answer "Please enter your name on the form." with "OK"
    exit mouseUp
  end if
  if field "Name" = "Records" then
    go to first card of bkgnd "Users"
    exit mouseUp
  end if
  put bkgnd field "Options"&" 7" into options
  put bkgnd field "Name" into name
  push this card
  go to first card of bkgnd "3-Digit Renaming"
  put "0" into field "Attempts"
  put "0" into field "Correct"
  put "0" into field "Percent"
  put options into field "Options"
  put name into field "Name"
  click at 400,125
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=21 top=265 right=287 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sound
----- HyperTalk script -----
on mouseUp
  if highlight of bkgnd button "Sound" is true then
    put "Y" into first word of field "Options"
  else
    put "N" into first word of field "Options"
  end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=109 top=269 right=285 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 5 Problems
----- HyperTalk script -----
on mouseUp
  set highlight of bkgnd button "5 Problems" to true
  set highlight of bkgnd button "10 Problems" to false
  set highlight of bkgnd button "25 Problems" to false
  put "5" into second word of field "Options"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=109 top=284 right=299 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 10 Problems
----- HyperTalk script -----
on mouseUp
  set highlight of bkgnd button "5 Problems" to False
  set highlight of bkgnd button "10 Problems" to true
  set highlight of bkgnd button "25 Problems" to false
  put "10" into second word of field "Options"

end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=109 top=298 right=314 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 25 Problems
----- HyperTalk script -----
on mouseUp
  set highlight of bkgnd button "5 Problems" to false
  set highlight of bkgnd button "10 Problems" to false
  set highlight of bkgnd button "25 Problems" to true
  put "25" into second word of field "Options"
end mouseUp



-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=339 top=283 right=301 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Options


-- part 15 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=324 top=275 right=305 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Name


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=42 right=81 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseDown
  set visible of card field "About" to not the visible of card field "About"
  set scroll of card field "About" to 0
end mouseDown